1. Napisati program koji za uneti realan broj x izračunava i ispisuje sinus i kosinus tog broja, ako je -2<=x<0, a izračunava i ispisuje koren i kvadrat tog broja ako je 0<=x. Ukoliko je uneti broj manji od -2 program ispisuje: "broj je manji od -2".
Program funkcije;
Var x: real;
Begin
Writeln ('unesite realan broj');
Readln (x);
if (-2<=x) then
if (x<0) then begin
writeln ('sinus od x je ',sin(x));
writeln ('kosinus od x je ',cos(x));
end
else begin
writeln ('koren od x je ', sqrt(x));
writeln ('kvadrat od x je ',sqr(x));
end
else writeln('Broj je manji od -2');
End.
Za vežbu: na osnovu ovog primera napisati algoritam.
Primetimo da naredbe:
writeln ('sinus od x je ',sin(x)); i writeln ('kosinus od x je ',cos(x));
kao i:
writeln ('koren od x je ', sqrt(x)); i writeln ('kvadrat od x je ',sqr(x));
čine takozvane blok naredbe ili kratko kažemo da čine blokove i zbog toga moraju stajati u programu između rezervisanih reči begin i end.
2. Napisati program koji za ulaz ima dužine tri duži x, y i z, i koji proverava da li se od njih može konstruisati trougao. Ako može onda izračunava i ispisuje njegovu površinu po formuli s=sqrt (p*(p-x)*(p-y)*(p-z)) gde je p = (x+y+z) / 2 , a inače ispisuje: "ne moze se konstruisati trougao".
Iz matematike je poznato da tri duži mogu činiti trougao ako je zbir dužina svake dve duži veći od dužine treće duži. To ćemo iskoristiti za logički uslov, ali kako sva tri slučaja moraju biti ispunjena (istovremeno) to ćemo logičke izraze povezivati sa rezervisanom rečju and.
Program PovTrougla;
var x, y, z, P, S :real;
Begin
writeln ('unesite duzine tri stranice');
readln (x,y,z);
writeln ('x= ', x , 'y= ' , y , 'z= ' , z );
if (x+y>z) and (x+z>y) and (y+z>x) then begin
P:= (x+y+z) / 2;
S:=sqrt ( P*(P-x)*(P-y)*(P-z) );
writeln ('povrsina trougla je ', S:10:3);
end
else writeln (' ne moze se konstruisati trougao');
End.
Za vežbu napisati algoritam na osnovu ovog programa.